$dialog select title "Выбор типа слоя для удаления" text "Растровые<raster>|Снимки<image>|Вектора<vector>|2D Объекты<sprite>|Экземпляры 3D объектов<mesh>|Дороги<road>|Дома<house>|Трубы<pipe>" ok "Выбрать"
!ltype = select

!ifdef ltype

$layers !ltype info
!layerlist = name

!ifdef layerlist
$dialog select sort title "Выбор слоя для удаления" text !layerlist ok "Удалить"
!layername = select

!ifdef layername

$layer del lname !layername

!delete layername
!endif // layername


!delete layerlist
!endif // layerlist


!delete ltype
!endif // ltype
